home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
dprftmrg.arc
/
DP_CLIPP.PRG
< prev
next >
Wrap
Text File
|
1990-09-26
|
774b
|
20 lines
* This assumes a database named "database",
* an index named "data_ntx", and a
* filter expression named "data_filtr"
SELECT A
USE database && select your data base
SET INDEX TO data_ntx && optional index
SET FILTER TO &data_filtr && optional filter
DECLARE array[FCOUNT()] && create optional array
AFILL (array,"+") && fill with pluses
array[1] = SPACE(1) && DO NOT translate 1st field
count = dPerfect("merge.sf",array) && create "merge.sf"
IF ERRORLEVEL() = 1 && successful completion
? STR(count) && display # records
ELSE
? "Sorry -- dPerfect Error!" && error occurred
ENDI